5 PRINT"[147]  [215]ORKING........"
10 DIMG%(50):OPEN15,8,15
20 MX=0:PB$="":OD=3:FL=0:G1=32:P=2:S=1:CT=0:CN=0:BT$=CHR$(167)+CHR$(2)
30 L=PEEK(49152):FORT=1TOL:PB$=PB$+CHR$(PEEK(49152+T)):NEXT:GOTO70
40 INPUT#15,E1$,E2$,E3$,E4$
50 IFVAL(E1$)<20THENRETURN
60 PRINTE1$;E2$;E3$;E4$:STOP
70 OPEN2,8,2,"#"
80 PRINT#15,"U1";2;0;18;S
90 GOSUB40
100 GET#2,A$,B$
110 S2=ASC(B$+CHR$(0)):S3=ASC(A$+CHR$(0))
120 CLOSE2
130 OPEN2,8,2,"#"
140 PRINT#15,"U1";2;0;18;S
150 GOSUB40
160 PRINT#15,"B-P";2;P
170 FORJ=1TOG1
180 GET#2,A$:G%(J)=ASC(A$+CHR$(0))
190 NEXT:CLOSE2
200 PM$="":FORJ=4TO19:IFG%(J)=160THEN220
210 PM$=PM$+CHR$(G%(J))
220 NEXT
230 IFPB$=PM$THEN280
250 IFFL=1THENFL=0:G1=32:P=2:S=S2:GOTO70
260 P=P+32:IFP=226THENG1=30:FL=1:GOTO130
270 G1=32:GOTO130
280 T=G%(2):S=G%(3)
290 OPEN2,8,2,"#"
300 PRINT#15,"U1";2;0;T;S
310 PRINT#15,"B-P";2;0
320 GET#2,A$,B$
330 CLOSE2
340 A$=A$+CHR$(0):B$=B$+CHR$(0)
350 T1=ASC(A$):S1=ASC(B$)
360 OPEN2,8,2,"#"
380 PRINT#15,"B-P";2;128
390 PRINT#2,BT$;
395 PRINT#15,"U2";2;0;T;S
400 CLOSE2
410 OPEN2,8,2,"#"
420 PRINT#15,"U1";2;0;T1;S1
430 PRINT#15,"B-P";2;0
440 GET#2,A$,B$
450 CLOSE2
460 A$=A$+CHR$(0):B$=B$+CHR$(0)
470 T=ASC(A$):S=ASC(B$)
480 OPEN2,8,2,"#"
500 PRINT#15,"B-P";2;128
510 FORX=1TO128:PRINT#2,CHR$(32);:NEXT
515 PRINT#15,"U2";2;0;T1;S1
520 CLOSE2
530 OPEN2,8,2,"#"
540 PRINT#15,"U1";2;0;T;S
550 PRINT#15,"B-P";2;0
560 GET#2,A$,B$
570 CLOSE2
580 A$=A$+CHR$(0):B$=B$+CHR$(0)
590 T1=ASC(A$):S1=ASC(B$)
600 OPEN2,8,2,"#"
620 PRINT#15,"B-P";2;2
630 FORX=1TO254:PRINT#2,CHR$(32);:NEXT
635 PRINT#15,"U2";2;0;T;S
640 CLOSE2
650 CT=CT+1:IFCT=3THEN670
660 T=T1:S=S1:GOTO530
670 L=LEN(PB$):PA$=LEFT$(PB$,L-2)
671 PRINT"[147]          [193]UTO-[194]OOT [195]OMPLETE!"
672 PRINT"[201] HAVE CREATED A NEW PROGRAM CALLED:"
673 PRINT"[158]"CHR$(34)PB$CHR$(34)
674 PRINT"[212]HIS IS A [211]TAND-[193]LONE CONVERSION OF"
675 PRINT"YOUR PROGRAM: [158]"CHR$(34)PA$CHR$(34)
676 PRINT"[158]LOAD"CHR$(34)PB$CHR$(34)",8,1"
677 PRINT"[215]ILL LOAD AND AUTO-START YOUR PROGRAM!"
679 POKE808,237
680 POKE631,5:POKE632,145:POKE633,145:POKE634,145:POKE635,145:POKE636,145:POKE198,6
690 NEW